home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEBITRGT.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  768b  |  32 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Move to the last key in the index'
  4. '
  5. '  bit.right moves the index pointer so that it references the largest
  6. '  key in the tree. this function is to be used to get a listing of the
  7. '  tree in sequence. the 'bit.left' routine will position the pointer
  8. '  at the other end of the tree for forward listings.
  9. '
  10.  
  11. '                Include the COMMON values
  12. rem $include:'AESHARED.BAS'            
  13.     
  14. sub bit.right(fl%,ky$,mrec%,success%) static
  15.  
  16.         rec%=1
  17. rtagain:
  18.         get #fl%,rec%
  19.         success%=cvi(xk$(fl%,3))
  20.         if success%=0 then
  21.             goto rtfin
  22.         end if
  23.         rec%=success%
  24.         goto rtagain
  25. rtfin:
  26.         ky$=xk$(fl%,1)
  27.         success%=rec%
  28.         mrec%=cvi(xk$(fl%,5))
  29.  
  30.     end sub
  31.  
  32.